Wykres, który będę poprawiać pochodzi z programu Fox News i dotyczy procentu bezrobocia w roku 2011 podczas kadencji Baracka Obamy.
Strona na której został znaleziony wykres: https://www.washingtonpost.com/blogs/erik-wemple/post/fox-newss-unemployment-chart-better-graphics/2011/12/12/gIQAUVgNqO_blog.html Oryginalny wykres:
Błędy i elementy wymagające poprawy na danym wykresie
Pierwszym z błędów na powyższym wykresie jest niepoprawne umieszczenie niektórych punktów wykresu. Możemy zauwarzyć, że wartość 8.6% w listopadzie znajduje się natej samej wysokości co 9.0%. Oś OY rozpoczyna się od wartości 8, a nie 0, co może powodować odbieranie różnic w wartościach przedstawionych na wykresie jako znacznie większych niż są w rzeczywistości.Także przeniesienie roku do tytułu w szczególności, że podtytuł “Under president Obama” może się odnosić do znacznie obszerniejszego okresu czasu.
Utworzenie ramki danych:
library(dplyr)
library(plotly)
months <- c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov")
percent <- c(9.0, 8.9, 8.8, 9.0, 9.1, 9.2, 9.1, 9.1, 9.1, 9.0, 8.6)
df <- data.frame(months, percent)
Wygenerowanie poprawionego wykresu w plotly:
df$months <- factor(df$months, levels = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov"))
months_full <- c("January", "February", "March", "April", "May", "June", "July","August", "September", "October", "November")
plot_ly(
df,
x = ~months,
y = ~percent,
type = "scatter",
mode = "markers+lines",
marker = list(size = 10, color = "darkorange"),
line = list(color = "darkorange"),
text = ~paste("Month: ", months_full, "<br>Percent: ", percent , "%"),
hoverinfo = "text"
) %>%
layout(
title = list(text = "Unemployment Rate in USA in 2011<br><sup>under president Obama<br><sup>",
font = list(size = 18)),
xaxis = list(title = "Month"),
yaxis = list(title = "Unemployment rate",
range = c(0, max(df$percent) + 1.5),
dtick = 1, tickformat = ".1f", ticksuffix = "%"),
margin = list(t = 50)
)
Wprowadzone poprawki
Punkty na wykresie odpowiadają odpowienim wartościom. Dzięki interaktywności wykresu można przybliżyć go do wybranego zakresu, jeśli jest potrzeba dokładniejszego przebadania różnic w wartościach, dlatego też oś OY została przeskalowana, aby zaczynała się w punkcie zero, dzięki czemu widać, że w rzeczywistości różnice w wartościach nie są aż tak duże. Po najechaniu na każdy z punktów widoczna pełna nazwa miesiąca, którego dotyczy pomiar wraz z dokładną wartością w %. Rok przeniesiony do tytułu wraz z dodaniem informacji jakiego kraju dotyczy wykres, a także dodane podpisy osi OX i OY, co zwiększa czytelność wykresu.